home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g2.d64 / cont.ldr.ml (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  42 lines
  1. 100 REM **************************
  2. 110 REM *                        *
  3. 120 REM *  HIRES PICTURE LOADER  *
  4. 130 REM *    FOR COMMODORE 64    *
  5. 140 REM *                        *
  6. 150 REM *                        *
  7. 160 REM *    DON WHITE           *
  8. 170 REM *    47 ARIEL COURT      *
  9. 180 REM *    NEPEAN, ONTARIO     *
  10. 190 REM *    K2H 8J1             *
  11. 200 REM *                        *
  12. 210 REM *    613-829-2082        *
  13. 220 REM *                        *
  14. 230 REM **************************
  15. 240 REM
  16. 250 PRINT"[147]
  17. 260 [139]CT[177]0[167]340
  18. 270 [156]:[140]
  19. 280 CT[178]0:[143] INITIALIZE COUNTER
  20. 290 NN[178]20:[143] # PICTURES TO LOAD
  21. 300 V[178]53248:[151]V[170]17,59:[151]V[170]24,25:[143] HIGH RES SCREEN
  22. 310 :
  23. 320 [134]PI$(NN),CL(NN):[129]I[178]1[164]NN:[135] PI$(I),CL(I):[130]:[137]400
  24. 330 :
  25. 340 [153]"LOAD"
  26. 350 [161]ZZ$:[139]ZZ$[178]"S"[167][151]V[170]17,27:[151]V[170]24,21:[153]"LOAD":[128]
  27. 360 [151]53280,[181](16[172][187](1))
  28. 370 [151]828,CL(CT)
  29. 380 [158]3222:
  30. 390 [129]I[178]1[164]2000:[130]:[153]"LOAD"
  31. 400 [153]"LOAD":CT[178]CT[170]1:[139]CT[177]NN[167]270
  32. 410 [147] PI$(CT),8,1:[143] LOAD PICTURE ON HIRES SCREEN
  33. 420 :
  34. 430 [143] NAMES & COLOURS OF PICTURES
  35. 440 :
  36. 450 [131] FIG1,7,TEX,28,FIG2,137,HOPALONG,28,SQUEEZE,235
  37. 455 [131] GUY,80,FIG3,133,MOUND2,7,EYES,22,FRIENDS,251
  38. 460 [131] SINCOS2,44,SATELLITE,224,DONALD.DUCK,22,VM.THINGS,97,SESAME.ST,122
  39. 465 [131] NUDE.REV,1,VIS.ROSETTE,20,VIS.G1A,87
  40. 470 [131] XMAS.CARD.1,81,4HILL5,27
  41. 490 [128]
  42.